data(instacart)
instacart=instacart|> janitor::clean_names()|> drop_na()
instacart |> plot_ly(x= ~department, y = ~order_hour_of_day, color = ~department, type = "box", colors = "viridis")